home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS085.dsk / LIST THIS FILE BEFORE IT'S RUN.bas < prev    next >
BASIC Source File  |  2012-02-16  |  822b  |  14 lines
  1. 10  REM THE ARMY DOES IT IN BASIC
  2. 25  TEXT : HOME : VTAB 12
  3. 50 X =  INT( RND(1) *2.55)
  4. 100  PRINT "GOTCHA!": REM  <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>IF X=0 THEN GOSUB 12345
  5. 200  PRINT "FOOLED YOU!": REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>IF X > 1 THEN X = X - 1
  6. 300  END 
  7. 12345 X = X +1: PRINT X: RETURN 
  8. 65535  REM  WHAT WILL HAPPEN
  9. 65535  REM  WHEN THIS PROGRAM
  10. 65535  REM  IS RUN???       
  11. 65535  REM  RUN IT AND SEE IF
  12. 65535  REM  YOUR RIGHT!
  13. 65535  REM ^^^^^^^^^^^^^^^^^^^
  14. 65535  REM ^^^^^^^^^^^^^^^^^^^